home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1167copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.4 KB  |  42 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1167"
  4. Company = "Wizardworks"
  5. title = "Game Parlor"
  6. Price = 19.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Mac CD-ROM"
  13. Title Description = "Five popular games on one CD-ROM! Includes: Fireside Chess, a
  14. full-featured version of chess that's perfect for beginners and experts alike. Checkers, a premier
  15. game of nobility since the eighth century. Expert Backgammon, one of the toughest backgammon
  16. games available. Solitaire, the original solitaire game! Play using either the standard rules or the
  17. alternate rules. Crosswords, includes 50 quality puzzles from beginner to expert."
  18.  
  19.  
  20. -----------------------------------
  21. dline = ""
  22. counter = 0
  23. repeat while dline <> title number
  24. counter = counter + 1
  25. dline = GetWord(1, GetLine(titl,counter))
  26. test(dline = title number, LineInTitle = counter)
  27. end repeat
  28. starttitle = LineInTitle
  29. num of titles shown = 6
  30. endtitle = starttitle + num of titles shown - 1
  31. titles = ""
  32. title highlight = ""
  33. repeat with counter = starttitle to endtitle
  34. nextline = GetLine(titl, counter)
  35. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  36. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  37. CharCount(nextline)) ^ Return, title highlight ^ Return)
  38. end repeat
  39. dpage = CurrentPageID
  40. newtitle = FALSE
  41. end if
  42.